home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 08 - 1992 / 08.02 Jun 92 / Simple Antivirus Protection / VirusCheckApp.p < prev   
Encoding:
Text File  |  1992-05-20  |  463 b   |  29 lines  |  [TEXT/MPS ]
  1. {Written by Nicholas Pisarro, Jr., Aperture Technologies, Inc.
  2.  No rights reserved.}
  3.  
  4. PROGRAM VirusCheckApp;
  5.  
  6. USES
  7.     {$LOAD}
  8.     MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, VirusCheck;
  9.     
  10. CONST
  11.     kAllOKAlertId = 1283;
  12.  
  13. VAR
  14.     dummy : INTEGER;
  15.     
  16. BEGIN
  17.     InitGraf(@thePort);
  18.     InitFonts;
  19.     InitWindows;
  20.     InitMenus;
  21.     TEInit;
  22.     InitDialogs(NIL);
  23.     InitCursor;
  24.     IF ApplicationCanRun THEN
  25.         BEGIN
  26.             dummy := NoteAlert(kAllOKAlertId, NIL);
  27.             {Application Main Body}
  28.         END
  29. END.